/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / samples / fortran.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 54 68 69 73 20 69 | 73 20 61 20 66 69 6c 65 |% This i|s a file|
|00000010| 20 6f 66 20 63 6f 6d 6d | 61 6e 64 73 20 66 6f 72 | of comm|ands for|
|00000020| 20 70 72 69 6e 74 69 6e | 67 20 6f 75 74 20 70 72 | printin|g out pr|
|00000030| 6f 67 72 61 6d 73 20 75 | 73 69 6e 67 20 54 65 58 |ograms u|sing TeX|
|00000040| 20 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .%     |        |
|00000050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000060| 20 20 2d 2d 20 73 65 65 | 20 44 49 52 54 59 20 54 |  -- see| DIRTY T|
|00000070| 52 49 43 4b 53 20 69 6e | 20 54 65 58 62 6f 6f 6b |RICKS in| TeXbook|
|00000080| 0a 25 0a 25 20 20 20 20 | 20 20 20 54 68 69 73 20 |.%.%    |   This |
|00000090| 76 65 72 73 69 6f 6e 20 | 69 73 20 64 65 73 69 67 |version |is desig|
|000000a0| 6e 65 64 20 74 6f 20 70 | 72 69 6e 74 20 73 6f 75 |ned to p|rint sou|
|000000b0| 72 63 65 20 63 6f 64 65 | 20 61 74 20 39 20 70 6f |rce code| at 9 po|
|000000c0| 69 6e 74 0a 25 20 20 20 | 20 20 20 20 66 69 74 74 |int.%   |    fitt|
|000000d0| 69 6e 67 20 61 6e 20 38 | 30 20 63 6f 6c 75 6d 6e |ing an 8|0 column|
|000000e0| 20 6c 69 6e 65 20 69 6e | 74 6f 20 61 20 36 20 74 | line in|to a 6 t|
|000000f0| 72 75 65 20 69 6e 63 68 | 20 77 69 64 74 68 20 77 |rue inch| width w|
|00000100| 69 74 68 20 0a 25 20 20 | 20 20 20 20 20 38 20 70 |ith .%  |     8 p|
|00000110| 6f 69 6e 74 20 6c 69 6e | 65 20 6e 75 6d 62 65 72 |oint lin|e number|
|00000120| 73 20 62 65 66 6f 72 65 | 20 65 61 63 68 20 6c 69 |s before| each li|
|00000130| 6e 65 2e 0a 25 20 20 20 | 20 20 20 20 49 74 20 68 |ne..%   |    It h|
|00000140| 61 6e 64 6c 65 73 20 54 | 41 42 20 28 5e 49 29 20 |andles T|AB (^I) |
|00000150| 63 68 61 72 61 63 74 65 | 72 73 20 61 6c 6d 6f 73 |characte|rs almos|
|00000160| 74 20 74 68 65 20 73 61 | 6d 65 20 61 73 20 44 45 |t the sa|me as DE|
|00000170| 43 0a 25 20 20 20 20 20 | 20 20 0a 25 20 20 20 20 |C.%     |  .%    |
|00000180| 20 20 20 75 73 61 67 65 | 3a 20 0a 25 20 20 20 20 |   usage|: .%    |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 5c 69 6e 70 75 |        |   \inpu|
|000001a0| 74 20 66 6f 72 74 72 61 | 6e 20 20 20 20 20 20 20 |t fortra|n       |
|000001b0| 20 20 20 25 20 70 75 74 | 20 74 68 69 73 20 65 61 |   % put| this ea|
|000001c0| 72 6c 79 20 69 6e 20 74 | 68 65 20 66 69 6c 65 0a |rly in t|he file.|
|000001d0| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%       |        |
|000001e0| 5c 6c 69 73 74 69 6e 67 | 7b 66 69 6c 65 2e 65 78 |\listing|{file.ex|
|000001f0| 74 7d 20 20 20 20 20 20 | 25 20 75 73 65 20 64 65 |t}      |% use de|
|00000200| 76 3a 5b 64 69 72 5d 20 | 69 66 20 79 6f 75 20 77 |v:[dir] |if you w|
|00000210| 69 73 68 0a 25 0a 25 20 | 20 20 20 20 20 20 42 2e |ish.%.% |      B.|
|00000220| 48 2e 20 54 6f 62 79 20 | 20 38 2f 38 36 0a 25 0a |H. Toby | 8/86.%.|
|00000230| 5c 6e 65 77 63 6f 75 6e | 74 5c 6c 69 6e 65 6e 6f |\newcoun|t\lineno|
|00000240| 0a 5c 66 6f 6e 74 5c 41 | 6c 69 73 74 74 74 3d 61 |.\font\A|listtt=a|
|00000250| 6d 74 74 39 20 61 74 20 | 39 20 74 72 75 65 70 74 |mtt9 at |9 truept|
|00000260| 0a 5c 66 6f 6e 74 5c 41 | 6c 69 73 74 72 6d 3d 61 |.\font\A|listrm=a|
|00000270| 6d 72 38 20 61 74 20 38 | 20 74 72 75 65 70 74 0a |mr8 at 8| truept.|
|00000280| 5c 64 65 66 5c 75 6e 63 | 61 74 63 6f 64 65 73 70 |\def\unc|atcodesp|
|00000290| 65 63 69 61 6c 73 7b 5c | 64 65 66 5c 64 6f 23 23 |ecials{\|def\do##|
|000002a0| 31 7b 5c 63 61 74 63 6f | 64 65 60 23 23 31 3d 31 |1{\catco|de`##1=1|
|000002b0| 32 20 7d 5c 64 6f 73 70 | 65 63 69 61 6c 73 7d 0a |2 }\dosp|ecials}.|
|000002c0| 5c 64 65 66 5c 6c 69 73 | 74 69 6e 67 23 31 7b 5c |\def\lis|ting#1{\|
|000002d0| 70 61 72 5c 62 65 67 69 | 6e 67 72 6f 75 70 5c 73 |par\begi|ngroup\s|
|000002e0| 65 74 75 70 76 65 72 62 | 61 74 69 6d 5c 69 6e 70 |etupverb|atim\inp|
|000002f0| 75 74 23 31 20 5c 65 6e | 64 67 72 6f 75 70 7d 0a |ut#1 \en|dgroup}.|
|00000300| 5c 64 65 66 5c 73 65 74 | 75 70 76 65 72 62 61 74 |\def\set|upverbat|
|00000310| 69 6d 7b 0a 20 20 5c 41 | 6c 69 73 74 74 74 5c 62 |im{.  \A|listtt\b|
|00000320| 61 73 65 6c 69 6e 65 73 | 6b 69 70 3d 20 38 2e 35 |aselines|kip= 8.5|
|00000330| 74 72 75 65 70 74 5c 6c | 69 6e 65 73 6b 69 70 3d |truept\l|ineskip=|
|00000340| 31 74 72 75 65 70 74 0a | 20 20 5c 6c 69 6e 65 73 |1truept.|  \lines|
|00000350| 6b 69 70 6c 69 6d 69 74 | 3d 31 74 72 75 65 70 74 |kiplimit|=1truept|
|00000360| 5c 74 6f 70 73 6b 69 70 | 3d 30 70 74 0a 20 20 5c |\topskip|=0pt.  \|
|00000370| 6c 69 6e 65 6e 6f 3d 30 | 0a 20 20 5c 64 65 66 5c |lineno=0|.  \def\|
|00000380| 70 61 72 7b 5c 6c 65 61 | 76 65 76 6d 6f 64 65 5c |par{\lea|vevmode\|
|00000390| 65 67 72 6f 75 70 5c 62 | 6f 78 30 5c 65 6e 64 67 |egroup\b|ox0\endg|
|000003a0| 72 61 66 7d 20 0a 20 20 | 5c 6f 62 65 79 6c 69 6e |raf} .  |\obeylin|
|000003b0| 65 73 20 5c 75 6e 63 61 | 74 63 6f 64 65 73 70 65 |es \unca|tcodespe|
|000003c0| 63 69 61 6c 73 20 5c 6f | 62 65 79 73 70 61 63 65 |cials \o|beyspace|
|000003d0| 73 0a 20 20 5c 63 61 74 | 63 6f 64 65 60 5c 60 3d |s.  \cat|code`\`=|
|000003e0| 5c 61 63 74 69 76 65 20 | 5c 63 61 74 63 6f 64 65 |\active |\catcode|
|000003f0| 60 5c 5e 5e 49 3d 5c 61 | 63 74 69 76 65 0a 20 20 |`\^^I=\a|ctive.  |
|00000400| 5c 65 76 65 72 79 70 61 | 72 7b 5c 61 64 76 61 6e |\everypa|r{\advan|
|00000410| 63 65 5c 6c 69 6e 65 6e | 6f 20 62 79 31 20 0a 20 |ce\linen|o by1 . |
|00000420| 20 20 20 5c 6c 6c 61 70 | 7b 5c 41 6c 69 73 74 72 |   \llap|{\Alistr|
|00000430| 6d 5c 74 68 65 5c 6c 69 | 6e 65 6e 6f 5c 20 5c 20 |m\the\li|neno\ \ |
|00000440| 7d 5c 73 74 61 72 74 62 | 6f 78 7d 7d 0a 5c 6e 65 |}\startb|ox}}.\ne|
|00000450| 77 64 69 6d 65 6e 5c 77 | 20 5c 73 65 74 62 6f 78 |wdimen\w| \setbox|
|00000460| 30 3d 5c 68 62 6f 78 7b | 5c 41 6c 69 73 74 74 74 |0=\hbox{|\Alisttt|
|00000470| 5c 73 70 61 63 65 7d 20 | 5c 77 3d 38 5c 77 64 30 |\space} |\w=8\wd0|
|00000480| 0a 5c 64 65 66 5c 73 74 | 61 72 74 62 6f 78 7b 5c |.\def\st|artbox{\|
|00000490| 73 65 74 62 6f 78 30 3d | 5c 68 62 6f 78 5c 62 67 |setbox0=|\hbox\bg|
|000004a0| 72 6f 75 70 7d 0a 7b 5c | 63 61 74 63 6f 64 65 60 |roup}.{\|catcode`|
|000004b0| 5c 5e 5e 49 3d 5c 61 63 | 74 69 76 65 20 0a 20 20 |\^^I=\ac|tive .  |
|000004c0| 5c 67 64 65 66 5e 5e 49 | 7b 5c 6c 65 61 76 65 76 |\gdef^^I|{\leavev|
|000004d0| 6d 6f 64 65 5c 65 67 72 | 6f 75 70 0a 20 20 20 20 |mode\egr|oup.    |
|000004e0| 5c 64 69 6d 65 6e 30 3d | 5c 77 64 30 0a 20 20 20 |\dimen0=|\wd0.   |
|000004f0| 20 5c 64 69 76 69 64 65 | 5c 64 69 6d 65 6e 30 20 | \divide|\dimen0 |
|00000500| 62 79 5c 77 0a 20 20 20 | 20 5c 6d 75 6c 74 69 70 |by\w.   | \multip|
|00000510| 6c 79 5c 64 69 6d 65 6e | 30 20 62 79 5c 77 0a 20 |ly\dimen|0 by\w. |
|00000520| 20 20 20 5c 61 64 76 61 | 6e 63 65 5c 64 69 6d 65 |   \adva|nce\dime|
|00000530| 6e 30 20 62 79 5c 77 0a | 20 20 20 20 5c 77 64 30 |n0 by\w.|    \wd0|
|00000540| 3d 5c 64 69 6d 65 6e 30 | 20 5c 62 6f 78 30 20 5c |=\dimen0| \box0 \|
|00000550| 73 74 61 72 74 62 6f 78 | 7d 7d 0a 7b 5c 6f 62 65 |startbox|}}.{\obe|
|00000560| 79 73 70 61 63 65 73 5c | 67 6c 6f 62 61 6c 5c 6c |yspaces\|global\l|
|00000570| 65 74 20 3d 5c 20 7d 0a | 7b 5c 63 61 74 63 6f 64 |et =\ }.|{\catcod|
|00000580| 65 60 5c 60 3d 5c 61 63 | 74 69 76 65 20 5c 67 64 |e`\`=\ac|tive \gd|
|00000590| 65 66 60 7b 5c 72 65 6c | 61 78 5c 6c 71 7d 7d 0a |ef`{\rel|ax\lq}}.|
+--------+-------------------------+-------------------------+--------+--------+